function Coeff=Reverb_rta_impulso(Gain,Delay)
%Corta cuando la Rta al impulso cae a -60db-> -3/Log10[g]=k
Kmax=ceil(-3/log10(Gain)); %g^k=

Coeff=zeros(1,Kmax*Delay); %inicializo coeff con ceros!

for k=1:Kmax
    Coeff(k*Delay)=Gain^k;
end